UNIT Timing;
(**) INTERFACE (**)
USES WinProcs;
VAR (* Elapsed : ARRAY[0..20] OF Char;  *)
    Ttime : LongInt;

  PROCEDURE StartTiming;
  PROCEDURE StopTiming;

(**) IMPLEMENTATION (**)
VAR Tstart : LongInt;

  PROCEDURE StartTiming;
  BEGIN
    TStart := GetTickCount;
  END;

  PROCEDURE StopTiming;
  VAR
    TimeRec : RECORD
      Seconds : LongInt;
      Tenths  : Word;
    END;
  BEGIN
    TTime := GetTickCount - TStart;
    WITH TimeRec DO
      BEGIN
        Seconds := TTime DIV 1000;
        Tenths  := (TTime MOD 1000) DIV 100;
      END;
(*    wvsprintf(Elapsed, '%3lu.%01u', TimeRec);   *)
  END;

END.